library(tidyverse)
library(rsdmx)
library(rio)
library(plotly)
write.csv(emissions_df,"emissions_df.csv")
write.csv(country_df,"country_df.csv",col.names=FALSE, row.names=FALSE)
Warning: attempt to set 'col.names' ignored
write.csv(sector_df,"sector_df.csv",col.names=FALSE, row.names=FALSE)
Warning: attempt to set 'col.names' ignored
# 10 countries with largest emissions, sector choice

sector<-"DTOTAL"

plot_ly(
  data = top_n(emissions_df%>%filter(IND==sector),10,obsValue),
  x = ~obsValue,
  y = ~COU,
  type = "bar"
)%>% 
layout(yaxis = list(title="Exporting country",categoryorder = "total ascending"),
       xaxis = list(title="Emissions embodied in exports (tonnes, millions)",tickformat= ".0f"),
       title="The 10 countries with the largest exported emissions",
       plot_bgcolor = "#e5ecf6")
NA
NA
NA
# 10 sectors with largest emissions, country choice

country<-"CHN"

fig <- plot_ly(
  data = top_n(emissions_df%>%filter(COU==country),10,obsValue),
  x = ~obsValue,
  y = ~IND,
  type = "bar"
)%>% 
layout(yaxis = list(title="Emitting sector",categoryorder = "total ascending"),
       xaxis = list(title="Emissions embodied in exports (tonnes, millions)",tickformat= ".0f"),
       title=paste0("The top 10 sectors with the largest exported emissions in ",country),
       plot_bgcolor = "#e5ecf6")

fig
NA
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQoNCg0KDQoNCmBgYHtyfQ0KbGlicmFyeSh0aWR5dmVyc2UpDQpsaWJyYXJ5KHJzZG14KQ0KDQpsaWJyYXJ5KHBsb3RseSkNCg0KYGBgDQoNCmBgYHtyfQ0KZW1pc3Npb25fZGF0YV91cmw8LSAiaHR0cHM6Ly9zdGF0cy5vZWNkLm9yZy9yZXN0c2RteC9zZG14LmFzaHgvR2V0RGF0YS9JT19HSEdfMjAyMS9GRF9DTzIuQVVTK0FVVCtCRUwrQ0FOK0NITCtDT0wrQ1JJK0NaRStETksrRVNUK0ZJTitGUkErREVVK0dSQytIVU4rSVNMK0lSTCtJU1IrSVRBK0pQTitLT1IrTFZBK0xUVStMVVgrTUVYK05MRCtOWkwrTk9SK1BPTCtQUlQrU1ZLK1NWTitFU1ArU1dFK0NIRStUVVIrR0JSK1VTQStBUkcrQlJBK0JSTitCR1IrS0hNK0NITitIUlYrQ1lQK0lORCtJRE4rSEtHK0tBWitMQU8rTVlTK01MVCtNQVIrTU1SK1BFUitQSEwrUk9VK1JVUytTQVUrU0dQK1pBRitUV04rVEhBK1RVTitWTk0uV0xELkRUT1RBTCtEMDFUMDMrRDAxVDAyK0QwMytEMDVUMDkrRDA1VDA2K0QwN1QwOCtEMDkrRDEwVDMzK0QxMFQxMitEMTNUMTUrRDE2VDE4K0QxNitEMTdUMTgrRDE5VDIzK0QxOStEMjBUMjErRDIwK0QyMStEMjIrRDIzK0QyNFQyNStEMjQrRDI1K0QyNlQyNytEMjYrRDI3K0QyOCtEMjlUMzArRDI5K0QzMCtEMzFUMzMrRDM1VDM5K0QzNStEMzZUMzkrRDQxVDQzK0Q0NVQ4MitENDVUNTYrRDQ1VDQ3K0Q0OVQ1MytENDkrRDUwK0Q1MStENTIrRDUzK0Q1NVQ1NitENThUNjMrRDU4VDYwK0Q2MStENjJUNjMrRDY0VDY2K0Q2OCtENjlUODIrRDY5VDc1K0Q3N1Q4MitEODRUOTgrRDg0VDg4K0Q4NCtEODUrRDg2VDg4K0Q5MFQ5OCtEOTBUOTYrRDkwVDkzK0Q5NFQ5NitEOTdUOTgrRDA1VDM5K0Q0MVQ5OCtENDVUOTgrRDU4VDgyK0RJTkZPK0RNSEgvYWxsP3N0YXJ0VGltZT0yMDE4JmVuZFRpbWU9MjAxOCINCg0KZW1pc3Npb25zX2RmIDwtIGFzLmRhdGEuZnJhbWUocmVhZFNETVgoZW1pc3Npb25fZGF0YV91cmwpLGxhYmVscz1UUlVFKQ0KDQpjb3VudHJ5X2RmIDwtIGVtaXNzaW9uc19kZiU+JQ0KICBzZWxlY3QoQ09VKQ0KDQoNCnNlY3Rvcl9kZiA8LSBlbWlzc2lvbnNfZGYlPiUNCiAgc2VsZWN0KElORCkNCg0Kd3JpdGUuY3N2KGVtaXNzaW9uc19kZiwiZW1pc3Npb25zX2RmLmNzdiIpDQp3cml0ZS5jc3YoY291bnRyeV9kZiwiY291bnRyeV9kZi5jc3YiLGNvbC5uYW1lcz1GQUxTRSwgcm93Lm5hbWVzPUZBTFNFKQ0Kd3JpdGUuY3N2KHNlY3Rvcl9kZiwic2VjdG9yX2RmLmNzdiIsY29sLm5hbWVzPUZBTFNFLCByb3cubmFtZXM9RkFMU0UpDQoNCg0KDQoNCmBgYA0KDQoNCg0KYGBge3J9DQojIDEwIGNvdW50cmllcyB3aXRoIGxhcmdlc3QgZW1pc3Npb25zLCBzZWN0b3IgY2hvaWNlDQoNCnNlY3RvcjwtIkRUT1RBTCINCg0KcGxvdF9seSgNCiAgZGF0YSA9IHRvcF9uKGVtaXNzaW9uc19kZiU+JWZpbHRlcihJTkQ9PXNlY3RvciksMTAsb2JzVmFsdWUpLA0KICB4ID0gfm9ic1ZhbHVlLA0KICB5ID0gfkNPVSwNCiAgdHlwZSA9ICJiYXIiDQopJT4lIA0KbGF5b3V0KHlheGlzID0gbGlzdCh0aXRsZT0iRXhwb3J0aW5nIGNvdW50cnkiLGNhdGVnb3J5b3JkZXIgPSAidG90YWwgYXNjZW5kaW5nIiksDQogICAgICAgeGF4aXMgPSBsaXN0KHRpdGxlPSJFbWlzc2lvbnMgZW1ib2RpZWQgaW4gZXhwb3J0cyAodG9ubmVzLCBtaWxsaW9ucykiLHRpY2tmb3JtYXQ9ICIuMGYiKSwNCiAgICAgICB0aXRsZT0iVGhlIDEwIGNvdW50cmllcyB3aXRoIHRoZSBsYXJnZXN0IGV4cG9ydGVkIGVtaXNzaW9ucyIsDQogICAgICAgcGxvdF9iZ2NvbG9yID0gIiNlNWVjZjYiKQ0KDQoNCiAgDQpgYGANCg0KYGBge3J9DQojIDEwIHNlY3RvcnMgd2l0aCBsYXJnZXN0IGVtaXNzaW9ucywgY291bnRyeSBjaG9pY2UNCg0KY291bnRyeTwtIkNITiINCg0KcGxvdF9seSgNCiAgZGF0YSA9IHRvcF9uKGVtaXNzaW9uc19kZiU+JWZpbHRlcihDT1U9PWNvdW50cnkpLDEwLG9ic1ZhbHVlKSwNCiAgeCA9IH5vYnNWYWx1ZSwNCiAgeSA9IH5JTkQsDQogIHR5cGUgPSAiYmFyIg0KKSU+JSANCmxheW91dCh5YXhpcyA9IGxpc3QodGl0bGU9IkVtaXR0aW5nIHNlY3RvciIsY2F0ZWdvcnlvcmRlciA9ICJ0b3RhbCBhc2NlbmRpbmciKSwNCiAgICAgICB4YXhpcyA9IGxpc3QodGl0bGU9IkVtaXNzaW9ucyBlbWJvZGllZCBpbiBleHBvcnRzICh0b25uZXMsIG1pbGxpb25zKSIsdGlja2Zvcm1hdD0gIi4wZiIpLA0KICAgICAgIHRpdGxlPXBhc3RlMCgiVGhlIHRvcCAxMCBzZWN0b3JzIHdpdGggdGhlIGxhcmdlc3QgZXhwb3J0ZWQgZW1pc3Npb25zIGluICIsY291bnRyeSksDQogICAgICAgcGxvdF9iZ2NvbG9yID0gIiNlNWVjZjYiKQ0KDQoNCiAgDQpgYGANCg0K